home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / vert-4.bas < prev   
BASIC Source File  |  1994-06-23  |  707b  |  21 lines

  1. 5  PRINT "LOADED VERTICAL ANTENNA"
  2. 10 INPUT "ENTER DISTANCE IN INCHES OF BOTTOM OF ANTENNA ABOVE GROUND"; A
  3. 15 INPUT "ENTER LENGTH IN FEET OF BOTTOM SECTION"; B
  4. 20 INPUT "ENTER LENGTH IN FEET OF TOP SECTION"; C
  5. 25 INPUT "ENTER DIAMETER IN INCHES OF ANTENNA"; D
  6. 30 INPUT "ENTER FREQUENCY IN MHZ"; F
  7. 35 K=57.2957795#
  8. 40 PI=355/113
  9. 45 L=3*10^6/(254*F)
  10. 50 BA=B*4320/L
  11. 55 BB=BA/K
  12. 60 CA=C*4320/L
  13. 65 CB=CA/K
  14. 70 CC=138*.4343*LOG((A+B*12+C*12)/D)
  15. 75 LO=(CC*(TAN(PI/2-CB)-TAN(BB)))/(2*PI*F)
  16. 80 PRINT "LO = "; LO "LOADING COIL INDUCTANCE IN MICROHENRIES"
  17. 90 BO=B*12*F/32.8
  18. 100 CO=C*12*F/32.8
  19. 110 RR=((CO*COS(BO/K))/2+BO*(1+COS(BO/K))/2)^2/82.3
  20. 115 PRINT "RR = "; RR "RADIATION RESISTANCE IN OHMS"
  21.